CLS
OPEN "kmhz" FOR RANDOM AS #2'LEN = LEN(a$)
OPEN "kkkkkkk.bas" FOR INPUT AS #1
ON ERROR GOTO err1
WHILE (e = 0)
INPUT #1, a$
PUT #2, , a$
WEND
CLOSE
END
err1:
CLOSE
END
RESUME NEXT
SCREEN 13
x = 60: y = 60
CLS
n$ = "kkkk.bas"
'KILL n$
RUN n$
'ON ERROR GOTO 100
OPEN n$ FOR RANDOM AS #1 LEN = 3' LEN(a)
'OPEN n$ FOR INPUT AS #1
   'FOR kk = 1 TO 2
           'x = x + 18
           'NEXT kk
   FOR i = 0 TO 16
       FOR j = 0 TO 16
'k = k + 1
'READ a
'PRINT #1, a$
'PUT #1, , a
GET #1, , a
'INPUT #1, a$
IF a = 1 THEN PSET (x + j, y + i), 13
           NEXT j
           NEXT i
           x = x + 18
           CLOSE
   FOR i = 0 TO 16
       FOR j = 0 TO 16
'k = k + 1
'READ a$
'PRINT #1, a$
'PUT #1, , a$
'GET #1, , a$
'INPUT #1, a$
'IF a$ = "1" THEN PSET (x + j, y + i), 13
           NEXT j
           NEXT i
CLOSE
END


dskl:
DATA 0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0
DATA 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0
DATA 0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,0,0
DATA 0,0,1,0,0,0,0,0,0,1,0,0,0,0,1,0,0
DATA 0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 0,0,1,0,0,0,0,0,0,1,0,0,0,1,1,0,0
DATA 0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,0,0
DATA 0,1,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0
DATA 0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
DATA 0,1,0,0,0,0,1,0,0,1,0,0,1,0,0,0,0
DATA 0,1,0,0,0,0,0,1,0,1,0,1,0,0,0,0,0
DATA 0,1,0,0,0,0,1,0,0,1,0,1,0,0,0,0,0
DATA 0,1,0,0,0,1,0,0,0,1,0,0,1,0,0,0,0
DATA 1,0,0,0,1,0,0,0,0,1,0,0,0,1,0,0,0
DATA 1,0,1,1,0,0,1,1,0,1,0,0,0,0,1,0,0
DATA 1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1

DATA 0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0
DATA 0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0
DATA 0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 0,0,0,0,1,1,0,0,0,0,1,1,1,0,0,0,0
DATA 0,0,0,0,1,1,0,0,0,0,1,1,1,0,0,0,0
DATA 0,0,0,0,1,1,1,0,0,1,0,1,0,1,0,0,0
DATA 0,0,0,1,0,1,1,0,0,1,0,1,0,1,0,0,0
DATA 0,0,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0
DATA 0,0,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0
DATA 0,0,0,1,0,1,0,1,1,0,0,1,0,0,1,0,0
DATA 0,0,1,0,0,1,0,1,1,0,0,1,0,0,1,0,0
DATA 0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0
DATA 0,1,0,0,0,1,0,0,1,0,0,1,0,0,1,0,0
DATA 0,1,0,0,0,1,0,0,0,0,0,1,0,0,1,0,0
DATA 1,0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,0
DATA 1,0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,1

100
END

